home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbfaqr01.zip
/
PANSI.EX2
< prev
next >
Wrap
Text File
|
1992-08-09
|
505b
|
28 lines
'A VERY simple example of a terminal program with ANSI emulation.
'Uses PANSI.BAS.
DEFINT A-Z
'$INCLUDE: 'pansi.bi'
SCREEN 0
WIDTH 80, 25
LOCATE , , 1
Init
SetWindow 1, 1, 80, 25
ClearScreen
CursorControl 1
SetCursor
' Change this stuff for your modem.
OPEN "com1:1200,n,8,1,rb8192,tb512" FOR RANDOM AS #1
DO
A$ = INKEY$
IF A$ <> "" THEN PRINT #1, A$;
IF NOT EOF(1) THEN
PrintAnsi ASC(INPUT$(1, 1))
END IF
LOOP UNTIL A$ = "~"
CLOSE
END